Carousel Volume 2 #1/carousel.iso/mactosh/john/hc_prntr.hqx/PrintReport Demo/background_2585.txt

Text File | 1989-12-18 | 5.9 KB | 286 lines

-- background: 2585 from stack: in
-- bmap block id: 3174
-- flags: 4000
-- background id: 0
-- name: Card
----- HyperTalk script -----
on openBackground
  push recent card
end openBackground


-- part 2 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=39 top=48 right=72 bottom=323
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 14
-- style flags: 256
-- line height: 18
-- part name: Name


-- part 15 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=18 top=240 right=281 bottom=63
-- title width / last selected line: 0
-- icon id / first selected line: 11045 / 11045
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  visual effect iris open
  go Home
end mouseUp



-- part 28 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=39 top=73 right=110 bottom=324
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Address


-- part 17 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=177 top=240 right=281 bottom=222
-- title width / last selected line: 0
-- icon id / first selected line: 32670 / 32670
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  show all cards
end mouseUp



-- part 18 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=71 top=240 right=281 bottom=118
-- title width / last selected line: 0
-- icon id / first selected line: 10610 / 10610
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: dial phone
----- HyperTalk script -----
on mouseUp
  get the selection
  if it is empty then get the message
  if it is empty then ask "Dial what number?"
  if it is not empty then
    push this card
    visual effect zoom open
    go to stack "Phone"
    dial it
    pop card
  end if
end mouseUp



-- part 29 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=77 top=114 right=137 bottom=272
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Phone


-- part 20 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=126 top=240 right=281 bottom=172
-- title width / last selected line: 0
-- icon id / first selected line: 15972 / 15972
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Calendar
----- HyperTalk script -----
on mouseUp
  set lockScreen to true
  go stack "Datebook"
  goWeekly the seconds
  set lockScreen to false
end mouseUp



-- part 21 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=148 top=200 right=225 bottom=175
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  visual effect wipe right
  go to previous card of background "Card"
end mouseUp



-- part 22 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=176 top=200 right=225 bottom=203
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  visual effect wipe left
  go to next card of background "Card"
end mouseUp



-- part 30 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=38 top=142 right=193 bottom=321
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Work Info


-- part 10 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=355 top=83 right=188 bottom=482
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Notes


-- part 26 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=291 top=198 right=226 bottom=328
-- title width / last selected line: 0
-- icon id / first selected line: 1012 / 1012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  pop card
end mouseUp



-- part 27 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=229 top=241 right=282 bottom=275
-- title width / last selected line: 0
-- icon id / first selected line: 20186 / 20186
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  answer "Sort all cards of this stack according to:" with "First Name" or "Last Name" or "Cancel"
  if it is "First Name"
  then sort by first word of first line of field "Name"
else if it is "Last Name"
then sort by last word of first line of field "Name"
end mouseUp



-- part 11 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=354 top=248 right=328 bottom=484
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Important Dates


-- part 31 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=282 top=242 right=282 bottom=328
-- title width / last selected line: 0
-- icon id / first selected line: 1007 / 1007
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  push card
  go to first card of background "Report"
end mouseUp